Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/Parallaxis 2.11/prim.p

Text File | 1991-08-23 | 419 b | 21 lines | [TEXT/????]

SYSTEM sieve;
CONFIGURATION list [200];
CONNECTION  (* none *);

SCALAR  prime    : INTEGER;
VECTOR  candidate: BOOLEAN;

BEGIN
   PARALLEL
      candidate := id_no >= 2;
      WHILE candidate DO
         prime:= REDUCE.FIRST(id_no);
         WriteInt(prime,10); WriteLn;
         IF id_no MOD prime = 0       (* remove multiples *)
            THEN candidate := FALSE
         END
      END
   ENDPARALLEL
END sieve.